home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / cad.sfx / G (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  635b  |  22 lines
  1. 1 REM GD
  2. 2 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
  3. 3 A=USR(21):A=USR(17):A=USR(19):A=USR(1)
  4. 4 PRINTCHR$(14)"[147][206][207][212][197]: [193]N OVERLAID GRID CANNOT BE ERASED.";
  5. 5 PRINT"[196]O YOU WISH TO CONTINUE?"
  6. 6 GETA$:IFA$=""THEN6
  7. 7 IFA$<>"Y"THEN20
  8. 8 SYS36864:PRINT:PRINT"[197]NTER [216]-AXIS WIDTH IN DOTS."
  9. 9 A$="":INPUT"(72 DOTS PER INCH.)";A$:PRINT:XA=VAL(A$):IFXA<2THENXA=36
  10. 10 PRINT:PRINT"[197]NTER [217]-AXIS WIDTH IN DOTS."
  11. 11 A$="":INPUT"(60 DOTS PER INCH.)";A$:PRINT:YA=VAL(A$):IFYA<2THENYA=30
  12. 12 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):OPEN15,D0,15,"I":CLOSE15
  13. 13 X1=XA:Y1=199-YA
  14. 14 A=USR(66),X1,0,X1,200
  15. 15 X1=X1+XA
  16. 16 IFX1<320THEN14
  17. 17 A=USR(66),0,Y1,320,Y1
  18. 18 Y1=Y1-YA
  19. 19 IFY1>0THEN17
  20. 20 GETA$:IFA$=""THEN20
  21. 21 LOAD"CMND",D0
  22.